---------------------------------------------

---------------------------------------------

---------------------------------------------

Código de Visual para leer el usuario de red actual

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _

(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 

Function NetUser() As String

Dim cbusername As Long, username As String

username = Space(256)

cbusername = Len(username)

If WNetGetUser(ByVal 0&, username, cbusername) = 0 Then

NetUser = Left(username, InStr(username, Chr(0)) - 1)

Else

    If GetUserName(username, cbusername) Then

NetUser = Left(username, InStr(username, Chr(0)) - 1)

    Else

   NetUser = ""

    End If

End If

End Function

ENLACES DE INTERES

https://www.pequetic.plasticaweb.com/ Juegos educativos gratis para niños de infantil.

https://www.plasticaweb.com/ Servicios de comunicación visual en diseño Web e identidad corporativa.